home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / mathematica / tex-mma.tar_z / tex-mma / psfig.sty < prev    next >
Text File  |  1991-01-30  |  10KB  |  391 lines
  1. % Psfig/TeX Release 1.2
  2. % dvips version
  3. % psfig.sty version (omit @ -> 11) --- Dan Dill 5/24/90
  4. %
  5. % All software, documentation, and related files in this distribution of
  6. % psfig/tex are Copyright 1987, 1988 Trevor J. Darrell
  7. %
  8. % Permission is granted for use and non-profit distribution of psfig/tex 
  9. % providing that this notice be clearly maintained, but the right to
  10. % distribute any portion of psfig/tex for profit or as part of any commercial
  11. % product is specifically reserved for the author.
  12. %
  13. % $Header: psfig.tex,v 1.9 88/01/08 17:42:01 trevor Exp $
  14. % $Source: $
  15. %
  16. % Thanks to Greg Hager (GDH) and Ned Batchelder for their contributions
  17. % to this project.
  18. %
  19. %\catcode`\@=11\relax % Omit in psfig.sty
  20. \newwrite\@unused
  21. \def\typeout#1{{\let\protect\string\immediate\write\@unused{#1}}}
  22. \typeout{psfig/tex 1.2-dvips}
  23.  
  24.  
  25. %% Here's how you define your figure path.  Should be set up with null
  26. %% default and a user useable definition.
  27.  
  28. \def\figurepath{./}
  29. \def\psfigurepath#1{\edef\figurepath{#1}}
  30.  
  31. %
  32. % @psdo control structure -- similar to Latex @for.
  33. % I redefined these with different names so that psfig can
  34. % be used with TeX as well as LaTeX, and so that it will not 
  35. % be vunerable to future changes in LaTeX's internal
  36. % control structure,
  37. %
  38. \def\@nnil{\@nil}
  39. \def\@empty{}
  40. \def\@psdonoop#1\@@#2#3{}
  41. \def\@psdo#1:=#2\do#3{\edef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  42.     \expandafter\@psdoloop#2,\@nil,\@nil\@@#1{#3}\fi}
  43. \def\@psdoloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
  44.        #5\def#4{#2}\ifx #4\@nnil \else#5\@ipsdoloop #3\@@#4{#5}\fi\fi}
  45. \def\@ipsdoloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil 
  46.        \let\@nextwhile=\@psdonoop \else
  47.       #4\relax\let\@nextwhile=\@ipsdoloop\fi\@nextwhile#2\@@#3{#4}}
  48. \def\@tpsdo#1:=#2\do#3{\xdef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  49.     \@tpsdoloop#2\@nil\@nil\@@#1{#3}\fi}
  50. \def\@tpsdoloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil 
  51.        \let\@nextwhile=\@psdonoop \else
  52.       #4\relax\let\@nextwhile=\@tpsdoloop\fi\@nextwhile#2\@@#3{#4}}
  53. % 
  54. %
  55. \def\psdraft{
  56.     \def\@psdraft{0}
  57.     %\typeout{draft level now is \@psdraft \space . }
  58. }
  59. \def\psfull{
  60.     \def\@psdraft{100}
  61.     %\typeout{draft level now is \@psdraft \space . }
  62. }
  63. \psfull
  64. \newif\if@prologfile
  65. \newif\if@postlogfile
  66. \newif\if@noisy
  67. \def\pssilent{
  68.     \@noisyfalse
  69. }
  70. \def\psnoisy{
  71.     \@noisytrue
  72. }
  73. \psnoisy
  74. %%% These are for the option list.
  75. %%% A specification of the form a = b maps to calling \@p@@sa{b}
  76. \newif\if@bbllx
  77. \newif\if@bblly
  78. \newif\if@bburx
  79. \newif\if@bbury
  80. \newif\if@height
  81. \newif\if@width
  82. \newif\if@rheight
  83. \newif\if@rwidth
  84. \newif\if@clip
  85. \newif\if@verbose
  86. \def\@p@@sclip#1{\@cliptrue}
  87.  
  88. %%% GDH 7/26/87 -- changed so that it first looks in the local directory,
  89. %%% then in a specified global directory for the ps file.
  90.  
  91. \def\@p@@sfile#1{\def\@p@sfile{null}%
  92.             \openin1=#1
  93.         \ifeof1\closein1%
  94.                \openin1=\figurepath#1
  95.             \ifeof1\typeout{Error, File #1 not found}
  96.             \else\closein1
  97.                 \edef\@p@sfile{\figurepath#1}%
  98.                         \fi%
  99.          \else\closein1%
  100.                \def\@p@sfile{#1}%
  101.          \fi}
  102. \def\@p@@sfigure#1{\def\@p@sfile{null}%
  103.             \openin1=#1
  104.         \ifeof1\closein1%
  105.                \openin1=\figurepath#1
  106.             \ifeof1\typeout{Error, File #1 not found}
  107.             \else\closein1
  108.                 \def\@p@sfile{\figurepath#1}%
  109.                         \fi%
  110.          \else\closein1%
  111.                \def\@p@sfile{#1}%
  112.          \fi}
  113.  
  114. \def\@p@@sbbllx#1{
  115.         %\typeout{bbllx is #1}
  116.         \@bbllxtrue
  117.         \dimen100=#1
  118.         \edef\@p@sbbllx{\number\dimen100}
  119. }
  120. \def\@p@@sbblly#1{
  121.         %\typeout{bblly is #1}
  122.         \@bbllytrue
  123.         \dimen100=#1
  124.         \edef\@p@sbblly{\number\dimen100}
  125. }
  126. \def\@p@@sbburx#1{
  127.         %\typeout{bburx is #1}
  128.         \@bburxtrue
  129.         \dimen100=#1
  130.         \edef\@p@sbburx{\number\dimen100}
  131. }
  132. \def\@p@@sbbury#1{
  133.         %\typeout{bbury is #1}
  134.         \@bburytrue
  135.         \dimen100=#1
  136.         \edef\@p@sbbury{\number\dimen100}
  137. }
  138. \def\@p@@sheight#1{
  139.         \@heighttrue
  140.         \dimen100=#1
  141.            \edef\@p@sheight{\number\dimen100}
  142.         %\typeout{Height is \@p@sheight}
  143. }
  144. \def\@p@@swidth#1{
  145.         %\typeout{Width is #1}
  146.         \@widthtrue
  147.         \dimen100=#1
  148.         \edef\@p@swidth{\number\dimen100}
  149. }
  150. \def\@p@@srheight#1{
  151.         %\typeout{Reserved height is #1}
  152.         \@rheighttrue
  153.         \dimen100=#1
  154.         \edef\@p@srheight{\number\dimen100}
  155. }
  156. \def\@p@@srwidth#1{
  157.         %\typeout{Reserved width is #1}
  158.         \@rwidthtrue
  159.         \dimen100=#1
  160.         \edef\@p@srwidth{\number\dimen100}
  161. }
  162. \def\@p@@ssilent#1{ 
  163.         \@verbosefalse
  164. }
  165. \def\@p@@sprolog#1{\@prologfiletrue\def\@prologfileval{#1}}
  166. \def\@p@@spostlog#1{\@postlogfiletrue\def\@postlogfileval{#1}}
  167. \def\@cs@name#1{\csname #1\endcsname}
  168. \def\@setparms#1=#2,{\@cs@name{@p@@s#1}{#2}}
  169. %
  170. % initialize the defaults (size the size of the figure)
  171. %
  172. \def\ps@init@parms{
  173.         \@bbllxfalse \@bbllyfalse
  174.         \@bburxfalse \@bburyfalse
  175.         \@heightfalse \@widthfalse
  176.         \@rheightfalse \@rwidthfalse
  177.         \def\@p@sbbllx{}\def\@p@sbblly{}
  178.         \def\@p@sbburx{}\def\@p@sbbury{}
  179.         \def\@p@sheight{}\def\@p@swidth{}
  180.         \def\@p@srheight{}\def\@p@srwidth{}
  181.         \def\@p@sfile{}
  182.         \def\@p@scost{10}
  183.         \def\@sc{}
  184.         \@prologfilefalse
  185.         \@postlogfilefalse
  186.         \@clipfalse
  187.         \if@noisy
  188.             \@verbosetrue
  189.         \else
  190.             \@verbosefalse
  191.         \fi
  192. }
  193. %
  194. % Go through the options setting things up.
  195. %
  196. \def\parse@ps@parms#1{
  197.          \@psdo\@psfiga:=#1\do
  198.            {\expandafter\@setparms\@psfiga,}}
  199. %
  200. % Compute bb height and width
  201. %
  202. \newif\ifno@bb
  203. \newif\ifnot@eof
  204. \newread\ps@stream
  205. \def\bb@missing{
  206.     \if@verbose{
  207.         \typeout{psfig: searching \@p@sfile \space  for bounding box}
  208.     }\fi
  209.     \openin\ps@stream=\@p@sfile
  210.     \no@bbtrue
  211.     \not@eoftrue
  212.     \catcode`\%=12
  213.     \loop
  214.         \read\ps@stream to \line@in
  215.         \global\toks200=\expandafter{\line@in}
  216.         \ifeof\ps@stream \not@eoffalse \fi
  217.         %\typeout{ looking at :: \the\toks200 }
  218.         \@bbtest{\toks200}
  219.         \if@bbmatch\not@eoffalse\expandafter\bb@cull\the\toks200\fi
  220.     \ifnot@eof \repeat
  221.     \catcode`\%=14
  222. }    
  223. \catcode`\%=12
  224. \newif\if@bbmatch
  225. \def\@bbtest#1{\expandafter\@a@\the#1%%BoundingBox:\@bbtest\@a@}
  226. \long\def\@a@#1%%BoundingBox:#2#3\@a@{\ifx\@bbtest#2\@bbmatchfalse\else\@bbmatchtrue\fi}
  227. \long\def\bb@cull#1 #2 #3 #4 #5 {
  228.     \dimen100=#2 bp\edef\@p@sbbllx{\number\dimen100}
  229.     \dimen100=#3 bp\edef\@p@sbblly{\number\dimen100}
  230.     \dimen100=#4 bp\edef\@p@sbburx{\number\dimen100}
  231.     \dimen100=#5 bp\edef\@p@sbbury{\number\dimen100}
  232.     \no@bbfalse
  233. }
  234. \catcode`\%=14
  235. %
  236. \def\compute@bb{
  237.         \no@bbfalse
  238.         \if@bbllx \else \no@bbtrue \fi
  239.         \if@bblly \else \no@bbtrue \fi
  240.         \if@bburx \else \no@bbtrue \fi
  241.         \if@bbury \else \no@bbtrue \fi
  242.         \ifno@bb \bb@missing \fi
  243.         \ifno@bb \typeout{FATAL ERROR: no bb supplied or found}
  244.             \no-bb-error
  245.         \fi
  246.         %
  247.         \count203=\@p@sbburx
  248.         \count204=\@p@sbbury
  249.         \advance\count203 by -\@p@sbbllx
  250.         \advance\count204 by -\@p@sbblly
  251.         \edef\@bbw{\number\count203}
  252.         \edef\@bbh{\number\count204}
  253.         %\typeout{ bbh = \@bbh, bbw = \@bbw }
  254. }
  255. %
  256. % \in@hundreds performs #1 * (#2 / #3) correct to the hundreds,
  257. %    then leaves the result in @result
  258. %
  259. \def\in@hundreds#1#2#3{\count240=#2 \count241=#3
  260.              \count100=\count240    % 100 is first digit #2/#3
  261.              \divide\count100 by \count241
  262.              \count101=\count100
  263.              \multiply\count101 by \count241
  264.              \advance\count240 by -\count101
  265.              \multiply\count240 by 10
  266.              \count101=\count240    %101 is second digit of #2/#3
  267.              \divide\count101 by \count241
  268.              \count102=\count101
  269.              \multiply\count102 by \count241
  270.              \advance\count240 by -\count102
  271.              \multiply\count240 by 10
  272.              \count102=\count240    % 102 is the third digit
  273.              \divide\count102 by \count241
  274.              \count200=#1\count205=0
  275.              \count201=\count200
  276.             \multiply\count201 by \count100
  277.              \advance\count205 by \count201
  278.              \count201=\count200
  279.             \divide\count201 by 10
  280.             \multiply\count201 by \count101
  281.             \advance\count205 by \count201
  282.             %
  283.              \count201=\count200
  284.             \divide\count201 by 100
  285.             \multiply\count201 by \count102
  286.             \advance\count205 by \count201
  287.             %
  288.              \edef\@result{\number\count205}
  289. }
  290. \def\compute@wfromh{
  291.         % computing : width = height * (bbw / bbh)
  292.         \in@hundreds{\@p@sheight}{\@bbw}{\@bbh}
  293.         %\typeout{ \@p@sheight * \@bbw / \@bbh, = \@result }
  294.         \edef\@p@swidth{\@result}
  295.         %\typeout{w from h: width is \@p@swidth}
  296. }
  297. \def\compute@hfromw{
  298.         % computing : height = width * (bbh / bbw)
  299.         \in@hundreds{\@p@swidth}{\@bbh}{\@bbw}
  300.         %\typeout{ \@p@swidth * \@bbh / \@bbw = \@result }
  301.         \edef\@p@sheight{\@result}
  302.         %\typeout{h from w : height is \@p@sheight}
  303. }
  304. \def\compute@handw{
  305.         \if@height 
  306.             \if@width
  307.             \else
  308.                 \compute@wfromh
  309.             \fi
  310.         \else 
  311.             \if@width
  312.                 \compute@hfromw
  313.             \else
  314.                 \edef\@p@sheight{\@bbh}
  315.                 \edef\@p@swidth{\@bbw}
  316.             \fi
  317.         \fi
  318. }
  319. \def\compute@resv{
  320.         \if@rheight \else \edef\@p@srheight{\@p@sheight} \fi
  321.         \if@rwidth \else \edef\@p@srwidth{\@p@swidth} \fi
  322. }
  323. %        
  324. % Compute any missing values
  325. \def\compute@sizes{
  326.     \compute@bb
  327.     \compute@handw
  328.     \compute@resv
  329. }
  330. %
  331. % \psfig
  332. % usage : \psfig{file=, height=, width=, bbllx=, bblly=, bburx=, bbury=,
  333. %            rheight=, rwidth=, clip=}
  334. %
  335. % "clip=" is a switch and takes no value, but the `=' must be present.
  336. \def\psfig#1{\vbox {
  337.     % do a zero width hard space so that a single
  338.     % \psfig in a centering enviornment will behave nicely
  339.     %{\setbox0=\hbox{\ }\ \hskip-\wd0}
  340.     %
  341.     \ps@init@parms
  342.     \parse@ps@parms{#1}
  343.     \compute@sizes
  344.     %
  345.     \ifnum\@p@scost<\@psdraft{
  346.         \if@verbose{
  347.             \typeout{psfig: including \@p@sfile \space }
  348.         }\fi
  349.         %
  350.         \special{ps::[begin]     \@p@swidth \space \@p@sheight \space
  351.                 \@p@sbbllx \space \@p@sbblly \space
  352.                 \@p@sbburx \space \@p@sbbury \space
  353.                 startTexFig \space }
  354.         \if@clip{
  355.             \if@verbose{
  356.                 \typeout{(clip)}
  357.             }\fi
  358.             \special{ps:: doclip \space }
  359.         }\fi
  360.         \if@prologfile
  361.             \special{ps: plotfile \@prologfileval \space } \fi
  362.         \special{ps: plotfile \@p@sfile \space }
  363.         \if@postlogfile
  364.             \special{ps: plotfile \@postlogfileval \space } \fi
  365.         \special{ps::[end] endTexFig \space }
  366.         % Create the vbox to reserve the space for the figure
  367.         \vbox to \@p@srheight true sp{
  368.             \hbox to \@p@srwidth true sp{
  369.                 \hss
  370.             }
  371.         \vss
  372.         }
  373.     }\else{
  374.         % draft figure, just reserve the space and print the
  375.         % path name.
  376.         \vbox to \@p@srheight true sp{
  377.         \vss
  378.             \hbox to \@p@srwidth true sp{
  379.                 \hss
  380.                 \if@verbose{
  381.                     \@p@sfile
  382.                 }\fi
  383.                 \hss
  384.             }
  385.         \vss
  386.         }
  387.     }\fi
  388. }}
  389. \def\psglobal{\typeout{psfig: PSGLOBAL is OBSOLETE; use psprint -m instead}}
  390. %\catcode`\@=12\relax % Omit in psfig.sty
  391.